From f9253e4d4fdb33d46711d6219b5e21a998f82760 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sun, 30 Jun 2002 14:41:47 +0000 Subject: [PATCH] * files.el (directory-free-space-args): Don't use -P on Darwin. * term/mac-win.el: Don't set it here. --- lisp/files.el | 3 ++- lisp/term/mac-win.el | 5 +---- 2 files changed, 3 insertions(+), 5 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index 5c1396fc7b2..0488c7a9847 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -3770,7 +3770,8 @@ preference to the program given by this variable." :type '(choice (string :tag "Program") (const :tag "None" nil)) :group 'dired) -(defcustom directory-free-space-args "-Pk" +(defcustom directory-free-space-args + (if (eq system-type 'darwin) "-k" "-Pk") "*Options to use when running `directory-free-space-program'." :type 'string :group 'dired) diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el index 2465126dbd6..a9ac12f085e 100644 --- a/lisp/term/mac-win.el +++ b/lisp/term/mac-win.el @@ -104,10 +104,7 @@ ;; Don't have this yet. (fset 'x-get-resource 'ignore) -(if (eq system-type 'darwin) - ;; df on Darwin does not understand -P - (setq directory-free-space-args "-k") - +(unless (eq system-type 'darwin) ;; This variable specifies the Unix program to call (as a process) to ;; deteremine the amount of free space on a file system (defaults to ;; df). If it is not set to nil, ls-lisp will not work correctly -- 2.30.2